COM AT^SSET test - Profile Settings control
COM V1.0	08.12.2004	T. Kleinmann

from attglobals import *

COM <H1>ToDo: Implement all other events for pictures and messages </H1>

AT^SSET=?
WAITFOR (1,'^SSET:')

# Switch to UCS2 to get file names in hex format

AT+CSCS="UCS2"
WAIT FOR OK

# Set a ring tone to get a pdu

at+cmec=2
WAIT FOR OK

at+ckpd="E"
WAIT FOR OK
WAIT 500
at+ckpd="E"
WAIT FOR OK
WAIT 500
at+ckpd="E"
WAIT FOR OK
WAIT 500
at+ckpd="E"
WAIT FOR OK
WAIT 500
at+ckpd="E"
WAIT FOR OK
WAIT 500
at+ckpd="F"
WAIT FOR OK
WAIT 500
at+ckpd="9"
WAIT FOR OK
WAIT 500
at+ckpd="5"
WAIT FOR OK
WAIT 500
at+ckpd="4"
WAIT FOR OK
WAIT 500
at+ckpd="^"
WAIT FOR OK
WAIT 500
at+ckpd="F"
WAIT FOR OK
WAIT 500
at+ckpd="]"
WAIT FOR OK
WAIT 500
at+ckpd="E"
WAIT FOR OK
WAIT 500
at+ckpd="E"
WAIT FOR OK
WAIT 500
at+ckpd="E"
WAIT FOR OK
WAIT 500
#Get PDU of sound set before
AT^SSET=2
strResp=WAITFOR (1,'OK')
strPDU=ExtractParameter(strResp,3,'^SSET:')
MESSAGE('PDU:', strPDU)


AT^SSET=2
WAIT FOR OK

MESSAGE('Delete?')

#Delete all profile settings
AT^SSET=0
WAIT FOR OK

MESSAGE ('Please check that all settings for ring tones are deleted!')

#Set

ATCMD(1,'AT^SSET=1,1,15,',strPDU)
WAIT FOR OK

#Check
AT^SSET=2
WAIT FOR OK

AT+CSCS="GSM"
WAIT FOR OK

AT
WAIT FOR OK


